home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / GNS_LOGF.ZIP / LOGOFF.PPE (.txt) < prev    next >
Encoding:
PCBoard Programming Language Executable  |  1994-06-19  |  10.6 KB  |  738 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     Integer  INTEGER007
  26.     Integer  INTEGER008
  27.     Integer  INTEGER009
  28.     Integer  INTEGER010
  29.     Integer  INTEGER011
  30.     Integer  INTEGER012
  31.     Integer  INTEGER013
  32.     Integer  INTEGER014
  33.     Integer  INTEGER015
  34.     Integer  INTEGER016
  35.     String   STRING001
  36.     String   STRING002
  37.     String   STRING003
  38.     String   STRING004
  39.     String   STRING005
  40.     String   STRING006
  41.     String   STRING007
  42.     String   STRING008
  43.     String   STRING009
  44.     String   STRING010
  45.     String   STRING011
  46.     String   STRING012
  47.     String   STRING013
  48.     String   STRING014
  49.     String   STRING015
  50.     String   STRING016
  51.     String   STRING017
  52.     String   STRING018
  53.     String   STRING019
  54.     String   STRING020
  55.     String   STRING021
  56.     String   STRING022
  57.     String   STRING023
  58.     String   STRING024
  59.     String   STRING025
  60.     String   STRING026
  61.     String   STRING027
  62.     String   STRING028
  63.     String   STRING029
  64.     String   STRING030
  65.     String   STRING031
  66.     String   STRING032
  67.     String   STRING033
  68.     String   STRING034
  69.     String   STRING035
  70.     String   STRING036
  71.     String   STRING037
  72.     String   STRING038
  73.     String   STRING039
  74.     String   STRING040
  75.  
  76. ;------------------------------------------------------------------------------
  77.  
  78.     Cls
  79.     GetUser
  80.     FOpen 1, PPEPath() + "LOGOFF.CNF", 0, 0
  81.     FGet 1, STRING001
  82.     FGet 1, STRING002
  83.     FGet 1, STRING003
  84.     FGet 1, STRING004
  85.     FGet 1, INTEGER001
  86.     FGet 1, INTEGER002
  87.     FGet 1, STRING006
  88.     FGet 1, STRING007
  89.     FGet 1, STRING008
  90.     FGet 1, STRING009
  91.     FGet 1, STRING010
  92.     FGet 1, STRING005
  93.     FGet 1, STRING012
  94.     FGet 1, STRING011
  95.     FGet 1, STRING013
  96.     FGet 1, STRING015
  97.     FGet 1, STRING014
  98.     FGet 1, STRING016
  99.     FGet 1, STRING017
  100.     FClose 1
  101.     If (Upper(STRING001) == "YES") Then
  102.         FOpen 1, PPEPath() + "LITEBAR.CNF", 0, 0
  103.         FGet 1, INTEGER003
  104.         FGet 1, INTEGER004
  105.         FGet 1, STRING024
  106.         FGet 1, STRING025
  107.         FGet 1, INTEGER005
  108.         FGet 1, INTEGER006
  109.         FGet 1, STRING026
  110.         FGet 1, STRING027
  111.         FGet 1, INTEGER007
  112.         FGet 1, INTEGER008
  113.         FGet 1, STRING028
  114.         FGet 1, STRING029
  115.         FGet 1, INTEGER009
  116.         FGet 1, INTEGER010
  117.         FGet 1, STRING030
  118.         FGet 1, STRING031
  119.         FGet 1, INTEGER011
  120.         FGet 1, INTEGER012
  121.         FGet 1, STRING032
  122.         FGet 1, STRING033
  123.         FGet 1, INTEGER013
  124.         FGet 1, INTEGER014
  125.         FGet 1, STRING034
  126.         FGet 1, STRING035
  127.         FClose 1
  128.     Endif
  129.     If (Upper(STRING001) == "NO") Then
  130.         FOpen 1, PPEPath() + "MENU.CNF", 0, 0
  131.         FGet 1, STRING018
  132.         FGet 1, STRING019
  133.         FGet 1, STRING020
  134.         FGet 1, STRING021
  135.         FGet 1, STRING022
  136.         FGet 1, STRING023
  137.         FClose 1
  138.     Endif
  139.     If (STRING008 == ("" || "NONE")) Goto LABEL001
  140.     DispFile PPEPath() + STRING008, 1
  141.     Print "@WAIT@"
  142.     :LABEL001
  143.     DispFile PPEPath() + STRING006, 1
  144.     If (Upper(STRING001) == "YES") Gosub LABEL002
  145.     If (Upper(STRING001) == "NO") Gosub LABEL006
  146.     :LABEL002
  147.     INTEGER015 = 1
  148.     STRING038 = ""
  149.     AnsiPos INTEGER003, INTEGER004
  150.     Print STRING025
  151.     AnsiPos INTEGER003, INTEGER004
  152.     :LABEL003
  153.     STRING036 = Inkey()
  154.     If (STRING036 == "") Goto LABEL003
  155.     If ((((STRING036 == "UP") || (Upper(STRING036) == "A")) || (Upper(STRING036) == "Z")) || (STRING036 == "DOWN")) Then
  156.         If (INTEGER015 == 1) Then
  157.             AnsiPos INTEGER003, INTEGER004
  158.             Print STRING024
  159.             AnsiPos INTEGER003, INTEGER004
  160.         Endif
  161.         If (INTEGER015 == 2) Then
  162.             AnsiPos INTEGER005, INTEGER006
  163.             Print STRING026
  164.             AnsiPos INTEGER005, INTEGER006
  165.         Endif
  166.         If (INTEGER015 == 3) Then
  167.             AnsiPos INTEGER007, INTEGER008
  168.             Print STRING028
  169.             AnsiPos INTEGER007, INTEGER008
  170.         Endif
  171.         If (INTEGER015 == 4) Then
  172.             AnsiPos INTEGER009, INTEGER010
  173.             Print STRING030
  174.             AnsiPos INTEGER009, INTEGER010
  175.         Endif
  176.         If (INTEGER015 == 5) Then
  177.             AnsiPos INTEGER011, INTEGER012
  178.             Print STRING032
  179.             AnsiPos INTEGER011, INTEGER012
  180.         Endif
  181.         If (INTEGER015 == 6) Then
  182.             AnsiPos INTEGER013, INTEGER014
  183.             Print STRING034
  184.             AnsiPos INTEGER013, INTEGER014
  185.         Endif
  186.         If ((Upper(STRING036) == "A") || (STRING036 == "UP")) Dec INTEGER015
  187.         If ((Upper(STRING036) == "Z") || (STRING036 == "DOWN")) Inc INTEGER015
  188.         If (INTEGER015 < 1) Then
  189.             INTEGER015 = 6
  190.             If (Upper(STRING005) == "NO") Dec INTEGER015
  191.         Endif
  192.         If (INTEGER015 > 6) INTEGER015 = 1
  193.         If ((INTEGER015 == 2) && (Upper(STRING002) == "NO")) Then
  194.             If ((Upper(STRING036) == "Z") || (STRING036 == "DOWN")) Inc INTEGER015
  195.             If ((Upper(STRING036) == "A") || (STRING036 == "UP")) Dec INTEGER015
  196.         Endif
  197.         If ((INTEGER015 == 3) && (Upper(STRING004) == "NO")) Then
  198.             If ((Upper(STRING036) == "Z") || (STRING036 == "DOWN")) Inc INTEGER015
  199.             If ((Upper(STRING036) == "A") || (STRING036 == "UP")) Dec INTEGER015
  200.         Endif
  201.         If ((INTEGER015 == 6) && (Upper(STRING005) == "NO")) Then
  202.             If ((Upper(STRING036) == "Z") || (STRING036 == "DOWN")) Inc INTEGER015
  203.             If ((Upper(STRING036) == "A") || (STRING036 == "UP")) Dec INTEGER015
  204.         Endif
  205.         If (INTEGER015 > 6) INTEGER015 = 1
  206.         If (INTEGER015 == 1) Then
  207.             AnsiPos INTEGER003, INTEGER004
  208.             Print STRING025
  209.             AnsiPos INTEGER003, INTEGER004
  210.         Endif
  211.         If (INTEGER015 == 2) Then
  212.             AnsiPos INTEGER005, INTEGER006
  213.             Print STRING027
  214.             AnsiPos INTEGER005, INTEGER006
  215.         Endif
  216.         If (INTEGER015 == 3) Then
  217.             AnsiPos INTEGER007, INTEGER008
  218.             Print STRING029
  219.             AnsiPos INTEGER007, INTEGER008
  220.         Endif
  221.         If (INTEGER015 == 4) Then
  222.             AnsiPos INTEGER009, INTEGER010
  223.             Print STRING031
  224.             AnsiPos INTEGER009, INTEGER010
  225.         Endif
  226.         If (INTEGER015 == 5) Then
  227.             AnsiPos INTEGER011, INTEGER012
  228.             Print STRING033
  229.             AnsiPos INTEGER011, INTEGER012
  230.         Endif
  231.         If (INTEGER015 == 6) Then
  232.             AnsiPos INTEGER013, INTEGER014
  233.             Print STRING035
  234.             AnsiPos INTEGER013, INTEGER014
  235.         Endif
  236.     Endif
  237.     If (STRING036 == Chr(13)) Then
  238.         If (INTEGER015 == 1) Then
  239.             If (STRING013 == "NONE") Then
  240.                 Print "@X0F"
  241.                 Cls
  242.                 DispFile PPEPath() + "FEEDBACK.TOP", 1
  243.                 FCreate 1, PPEPath() + "TEMP.MSG", 1, 0
  244.                 For INTEGER016 = 1 To 100
  245.                     Print "@X08", INTEGER016, "> "
  246.                     InputStr "_", STRING038, 75, 75, Mask_Ascii(), 0
  247.                     If (Upper(STRING038) == "/S") Break
  248.                     If (Upper(STRING038) == "/A") Then
  249.                         PrintLn 
  250.                         Print "@X08Message Aborted!"
  251.                         Goto LABEL004
  252.                     Endif
  253.                     FPutLn 1, STRING038
  254.                     STRING038 = ""
  255.                     PrintLn 
  256.                 Next
  257.                 FClose 1
  258.                 Message 0, "SYSOP", "", "Logoff Feedback", "R", 0, 0, 1, PPEPath() + "TEMP.MSG"
  259.                 Delete PPEPath() + "TEMP.MSG"
  260.                 PrintLn 
  261.                 Print "@X08Message Saved - Conference #0"
  262.             Endif
  263.             :LABEL004
  264.             If (!(STRING013 == "NONE")) Call STRING013
  265.             Goto LABEL001
  266.         Endif
  267.         If (INTEGER015 == 2) Then
  268.             If (U_Sec < INTEGER002) Goto LABEL001
  269.             If (STRING015 == "NONE") Then
  270.                 Print "@X0F"
  271.                 Cls
  272.                 DispFile PPEPath() + "AUTOMSG.TOP", 1
  273.                 FCreate 1, PPEPath() + "TEMP.MSG", 1, 0
  274.                 For INTEGER016 = 1 To 100
  275.                     Print "@X08", INTEGER016, "> "
  276.                     InputStr "_", STRING038, 75, 75, Mask_Ascii(), 0
  277.                     If (Upper(STRING038) == "/S") Break
  278.                     If (Upper(STRING038) == "/A") Then
  279.                         PrintLn 
  280.                         Print "@X08Message Aborted!"
  281.                         Goto LABEL005
  282.                     Endif
  283.                     FPutLn 1, STRING038
  284.                     STRING038 = ""
  285.                     PrintLn 
  286.                 Next
  287.                 FClose 1
  288.                 FCreate 1, PPEPath() + "AUTOBUL.", 1, 0
  289.                 FClose 1
  290.                 Append PPEPath() + "AUTOBUL.TOP", PPEPath() + "AUTOBUL."
  291.                 Append PPEPath() + "TEMP.MSG", PPEPath() + "AUTOBUL."
  292.                 Append PPEPath() + "AUTOBUL.BOT", PPEPath() + "AUTOBUL."
  293.             Endif
  294.         Endif
  295.         :LABEL005
  296.         If (INTEGER015 == 3) Then
  297.             If (U_Sec < INTEGER001) Goto LABEL001
  298.             If (STRING014 == "NONE") Then
  299.                 Print "@X0F"
  300.                 Cls
  301.                 DispFile PPEPath() + "CHAT.TOP", 1
  302.                 PrintLn 
  303.                 Print "@X08> "
  304.                 InputStr "_", STRING039, 76, 76, Mask_Ascii(), 0
  305.                 If (STRING039 == "") Goto LABEL001
  306.                 PrintLn "@X09"
  307.                 SPrintLn 
  308.                 SPrintLn "LOCAL MESSAGE: [Press SPACE to answer Page!]"
  309.                 SPrintLn 
  310.                 For INTEGER016 = 1 To 10
  311.                     Print STRING017
  312.                     Sound 100
  313.                     Delay 1
  314.                     Sound 200
  315.                     Delay 1
  316.                     Sound 300
  317.                     Delay 1
  318.                     Sound 400
  319.                     Delay 1
  320.                     Sound 500
  321.                     Delay 1
  322.                     Sound 600
  323.                     Delay 1
  324.                     Sound 700
  325.                     Delay 1
  326.                     Sound 800
  327.                     Delay 1
  328.                     Sound 900
  329.                     Delay 1
  330.                     Sound 0
  331.                     Delay 5
  332.                     If (KInkey() == " ") Then
  333.                         Chat
  334.                         Break
  335.                     Endif
  336.                 Next
  337.             Endif
  338.             If (!(STRING014 == "NONE")) Call STRING014
  339.         Endif
  340.         If (INTEGER015 == 4) Then
  341.             Print "@X0F"
  342.             Cls
  343.             STRING037 = "N"
  344.             InputStr STRING016, STRING037, 1, 1, "YyNn", 2 + 4
  345.             If ((Upper(STRING037) == "N") || (STRING037 == " ")) Then
  346.                 If (Exist(PPEPath() + STRING010)) DispFile PPEPath() + STRING010, 1
  347.                 Hangup
  348.                 End
  349.             Endif
  350.             If (Upper(STRING037) == "Y") Then
  351.                 If (Exist(PPEPath() + STRING009)) DispFile PPEPath() + STRING009, 1
  352.                 Hangup
  353.                 End
  354.             Endif
  355.             Goto LABEL001
  356.         Endif
  357.         If (INTEGER015 == 5) Then
  358.             Print "@X0F"
  359.             Cls
  360.             End
  361.             Goto LABEL001
  362.         Endif
  363.         If (INTEGER015 == 6) Then
  364.             Print "@X0F"
  365.             Cls
  366.             If (Exist(PPEPath() + STRING011)) DispFile PPEPath() + STRING011, 1
  367.             Goto LABEL001
  368.         Endif
  369.         Goto LABEL001
  370.     Endif
  371.     Goto LABEL003
  372.     :LABEL006
  373.     If (STRING018 == "YES") Then
  374.         Print STRING007
  375.         :LABEL007
  376.         STRING040 = ""
  377.         While ((STRING040 == "")) STRING040 = Upper(Inkey())
  378.         If (STRING040 == "?") Then
  379.             Print "?"
  380.             Goto LABEL001
  381.         Endif
  382.         If (STRING040 == "F") Then
  383.             Print STRING019
  384.             If (STRING013 == "NONE") Then
  385.                 Print "@X0F"
  386.                 Cls
  387.                 DispFile PPEPath() + "FEEDBACK.TOP", 1
  388.                 FCreate 1, PPEPath() + "TEMP.MSG", 1, 0
  389.                 For INTEGER016 = 1 To 100
  390.                     Print "@X08", INTEGER016, "> "
  391.                     InputStr "_", STRING038, 75, 75, Mask_Ascii(), 0
  392.                     If (Upper(STRING038) == "/S") Break
  393.                     If (Upper(STRING038) == "/A") Then
  394.                         PrintLn 
  395.                         Print "@X08Message Aborted!"
  396.                         Goto LABEL008
  397.                     Endif
  398.                     FPutLn 1, STRING038
  399.                     STRING038 = ""
  400.                     PrintLn 
  401.                 Next
  402.                 FClose 1
  403.                 Message 0, "SYSOP", "", "Logoff Feedback", "R", 0, 0, 1, PPEPath() + "TEMP.MSG"
  404.                 Delete PPEPath() + "TEMP.MSG"
  405.                 PrintLn 
  406.                 Print "@X08Message Saved - Conference #0"
  407.             Endif
  408.             :LABEL008
  409.             If (!(STRING013 == "NONE")) Call STRING013
  410.             Goto LABEL001
  411.         Endif
  412.         If ((STRING040 == "P") && (STRING002 == "YES")) Then
  413.             If (U_Sec < INTEGER001) Goto LABEL001
  414.             Print STRING020
  415.             If (STRING014 == "NONE") Then
  416.                 Print "@X0F"
  417.                 Cls
  418.                 DispFile PPEPath() + "CHAT.TOP", 1
  419.                 PrintLn 
  420.                 Print "@X08> "
  421.                 InputStr "_", STRING039, 76, 76, Mask_Ascii(), 0
  422.                 If (STRING039 == "") Goto LABEL001
  423.                 PrintLn "@X09"
  424.                 SPrintLn 
  425.                 SPrintLn "LOCAL MESSAGE: [Press SPACE to answer Page!]"
  426.                 SPrintLn 
  427.                 For INTEGER016 = 1 To 10
  428.                     Print STRING017
  429.                     Sound 100
  430.                     Delay 1
  431.                     Sound 200
  432.                     Delay 1
  433.                     Sound 300
  434.                     Delay 1
  435.                     Sound 400
  436.                     Delay 1
  437.                     Sound 500
  438.                     Delay 1
  439.                     Sound 600
  440.                     Delay 1
  441.                     Sound 700
  442.                     Delay 1
  443.                     Sound 800
  444.                     Delay 1
  445.                     Sound 900
  446.                     Delay 1
  447.                     Sound 0
  448.                     Delay 5
  449.                     If (KInkey() == " ") Then
  450.                         Chat
  451.                         Break
  452.                     Endif
  453.                 Next
  454.             Endif
  455.             If (!(STRING014 == "NONE")) Call STRING014
  456.         Endif
  457.         If ((STRING040 == "A") && (STRING004 == "YES")) Then
  458.             Print STRING021
  459.             If (U_Sec < INTEGER002) Goto LABEL001
  460.             If (STRING015 == "NONE") Then
  461.                 Print "@X0F"
  462.                 Cls
  463.                 DispFile PPEPath() + "AUTOMSG.TOP", 1
  464.                 FCreate 1, PPEPath() + "TEMP.MSG", 1, 0
  465.                 For INTEGER016 = 1 To 100
  466.                     Print "@X08", INTEGER016, "> "
  467.                     InputStr "_", STRING038, 75, 75, Mask_Ascii(), 0
  468.                     If (Upper(STRING038) == "/S") Break
  469.                     If (Upper(STRING038) == "/A") Then
  470.                         PrintLn 
  471.                         Print "@X08Message Aborted!"
  472.                         Goto LABEL009
  473.                     Endif
  474.                     FPutLn 1, STRING038
  475.                     STRING038 = ""
  476.                     PrintLn 
  477.                 Next
  478.                 FClose 1
  479.                 FCreate 1, PPEPath() + "AUTOBUL.", 1, 0
  480.                 FClose 1
  481.                 Append PPEPath() + "AUTOBUL.TOP", PPEPath() + "AUTOBUL."
  482.                 Append PPEPath() + "TEMP.MSG", PPEPath() + "AUTOBUL."
  483.                 Append PPEPath() + "AUTOBUL.BOT", PPEPath() + "AUTOBUL."
  484.             Endif
  485.         Endif
  486.         :LABEL009
  487.         If (STRING040 == "Q") Then
  488.             Print STRING023
  489.             Print "@X0F"
  490.             Cls
  491.             End
  492.         Endif
  493.         If (STRING040 == "G") Then
  494.             Print STRING022
  495.             Print "@X0F"
  496.             Cls
  497.             STRING037 = "N"
  498.             InputStr STRING016, STRING037, 1, 1, "YyNn", 2 + 4
  499.             If ((Upper(STRING037) == "N") || (STRING037 == " ")) Then
  500.                 If (Exist(PPEPath() + STRING010)) DispFile PPEPath() + STRING010, 1
  501.                 Hangup
  502.                 End
  503.             Endif
  504.             If (Upper(STRING037) == "Y") Then
  505.                 If (Exist(PPEPath() + STRING009)) DispFile PPEPath() + STRING009, 1
  506.                 Hangup
  507.                 End
  508.             Endif
  509.             Goto LABEL001
  510.         Endif
  511.         If ((STRING040 == STRING012) && (STRING005 == "YES")) Then
  512.             Print ""
  513.             DispFile PPEPath() + STRING011, 1
  514.             Goto LABEL001
  515.         Endif
  516.         Goto LABEL007
  517.     Endif
  518.     If (STRING018 == "NO") Then
  519.         :LABEL010
  520.         STRING040 = ""
  521.         PrintLn 
  522.         InputStr STRING007 + "_", STRING040, 40, 40, Mask_Ascii(), 0
  523.         STRING040 = Upper(STRING040)
  524.         If (STRING040 == "?") Goto LABEL001
  525.         If (STRING040 == "") Goto LABEL010
  526.         If (STRING040 == "F") Then
  527.             If (STRING013 == "NONE") Then
  528.                 Print "@X0F"
  529.                 Cls
  530.                 DispFile PPEPath() + "FEEDBACK.TOP", 1
  531.                 FCreate 1, PPEPath() + "TEMP.MSG", 1, 0
  532.                 For INTEGER016 = 1 To 100
  533.                     Print "@X08", INTEGER016, "> "
  534.                     InputStr "_", STRING038, 75, 75, Mask_Ascii(), 0
  535.                     If (Upper(STRING038) == "/S") Break
  536.                     If (Upper(STRING038) == "/A") Then
  537.                         PrintLn 
  538.                         Print "@X08Message Aborted!"
  539.                         Goto LABEL011
  540.                     Endif
  541.                     FPutLn 1, STRING038
  542.                     STRING038 = ""
  543.                     PrintLn 
  544.                 Next
  545.                 FClose 1
  546.                 Message 0, "SYSOP", "", "Logoff Feedback", "R", 0, 0, 1, PPEPath() + "TEMP.MSG"
  547.                 Delete PPEPath() + "TEMP.MSG"
  548.                 PrintLn 
  549.                 Print "@X08Message Saved - Conference #0"
  550.             Endif
  551.             :LABEL011
  552.             If (!(STRING013 == "NONE")) Call STRING013
  553.             Goto LABEL001
  554.         Endif
  555.         If ((STRING040 == "P") && (STRING002 == "YES")) Then
  556.             If (U_Sec < INTEGER001) Goto LABEL001
  557.             If (STRING014 == "NONE") Then
  558.                 Print "@X0F"
  559.                 Cls
  560.                 DispFile PPEPath() + "CHAT.TOP", 1
  561.                 PrintLn 
  562.                 Print "@X08> "
  563.                 InputStr "_", STRING039, 76, 76, Mask_Ascii(), 0
  564.                 If (STRING039 == "") Goto LABEL001
  565.                 PrintLn "@X09"
  566.                 SPrintLn 
  567.                 SPrintLn "LOCAL MESSAGE: [Press SPACE to answer Page!]"
  568.                 SPrintLn 
  569.                 For INTEGER016 = 1 To 10
  570.                     Print STRING017
  571.                     Sound 100
  572.                     Delay 1
  573.                     Sound 200
  574.                     Delay 1
  575.                     Sound 300
  576.                     Delay 1
  577.                     Sound 400
  578.                     Delay 1
  579.                     Sound 500
  580.                     Delay 1
  581.                     Sound 600
  582.                     Delay 1
  583.                     Sound 700
  584.                     Delay 1
  585.                     Sound 800
  586.                     Delay 1
  587.                     Sound 900
  588.                     Delay 1
  589.                     Sound 0
  590.                     Delay 5
  591.                     If (KInkey() == " ") Then
  592.                         Chat
  593.                         Break
  594.                     Endif
  595.                 Next
  596.             Endif
  597.             If (!(STRING014 == "NONE")) Call STRING014
  598.         Endif
  599.         If ((STRING040 == "A") && (STRING004 == "YES")) Then
  600.             If (U_Sec < INTEGER002) Goto LABEL001
  601.             If (STRING015 == "NONE") Then
  602.                 Print "@X0F"
  603.                 Cls
  604.                 DispFile PPEPath() + "AUTOMSG.TOP", 1
  605.                 FCreate 1, PPEPath() + "TEMP.MSG", 1, 0
  606.                 For INTEGER016 = 1 To 100
  607.                     Print "@X08", INTEGER016, "> "
  608.                     InputStr "_", STRING038, 75, 75, Mask_Ascii(), 0
  609.                     If (Upper(STRING038) == "/S") Break
  610.                     If (Upper(STRING038) == "/A") Then
  611.                         PrintLn 
  612.                         Print "@X08Message Aborted!"
  613.                         Goto LABEL012
  614.                     Endif
  615.                     FPutLn 1, STRING038
  616.                     STRING038 = ""
  617.                     PrintLn 
  618.                 Next
  619.                 FClose 1
  620.                 FCreate 1, PPEPath() + "AUTOBUL.", 1, 0
  621.                 FClose 1
  622.                 Append PPEPath() + "AUTOBUL.TOP", PPEPath() + "AUTOBUL."
  623.                 Append PPEPath() + "TEMP.MSG", PPEPath() + "AUTOBUL."
  624.                 Append PPEPath() + "AUTOBUL.BOT", PPEPath() + "AUTOBUL."
  625.             Endif
  626.         Endif
  627.         :LABEL012
  628.         If (STRING040 == "Q") Then
  629.             Print "@X0F"
  630.             Cls
  631.             End
  632.         Endif
  633.         If (STRING040 == "G") Then
  634.             Print "@X0F"
  635.             Cls
  636.             STRING037 = "N"
  637.             InputStr STRING016, STRING037, 1, 1, "YyNn", 2 + 4
  638.             If ((Upper(STRING037) == "N") || (STRING037 == " ")) Then
  639.                 If (Exist(PPEPath() + STRING010)) DispFile PPEPath() + STRING010, 1
  640.                 Hangup
  641.                 End
  642.             Endif
  643.             If (Upper(STRING037) == "Y") Then
  644.                 If (Exist(PPEPath() + STRING009)) DispFile PPEPath() + STRING009, 1
  645.                 Hangup
  646.                 End
  647.             Endif
  648.             Goto LABEL001
  649.         Endif
  650.         If ((STRING040 == STRING012) && (STRING005 == "YES")) Then
  651.             DispFile PPEPath() + STRING011, 1
  652.             Goto LABEL001
  653.         Endif
  654.         Goto LABEL010
  655.     Endif
  656.  
  657. ;------------------------------------------------------------------------------
  658. ;
  659. ; Usage report (before postprocessing)
  660. ;
  661. ; ■ Statements used :
  662. ;
  663. ;    9       End
  664. ;    17      Cls
  665. ;    127     Goto 
  666. ;    37      Let 
  667. ;    59      Print 
  668. ;    22      PrintLn 
  669. ;    120     If 
  670. ;    20      DispFile 
  671. ;    9       FCreate 
  672. ;    3       FOpen 
  673. ;    12      FClose 
  674. ;    49      FGet 
  675. ;    6       FPutLn 
  676. ;    6       Hangup
  677. ;    1       GetUser
  678. ;    3       Delete 
  679. ;    13      InputStr 
  680. ;    2       Gosub 
  681. ;    30      Delay 
  682. ;    4       Inc 
  683. ;    5       Dec 
  684. ;    6       Call 
  685. ;    26      AnsiPos 
  686. ;    3       Message 
  687. ;    30      Sound 
  688. ;    3       Chat
  689. ;    9       SPrintLn 
  690. ;    9       Append 
  691. ;
  692. ;
  693. ; ■ Functions used :
  694. ;
  695. ;    76      +
  696. ;    118     ==
  697. ;    16      <
  698. ;    9       <=
  699. ;    2       >
  700. ;    18      >=
  701. ;    81      !
  702. ;    27      &&
  703. ;    24      ||
  704. ;    38      Upper()
  705. ;    1       Chr()
  706. ;    2       Inkey()
  707. ;    10      Mask_Ascii()
  708. ;    63      PPEPath()
  709. ;    7       Exist()
  710. ;    3       KInkey()
  711. ;
  712. ;------------------------------------------------------------------------------
  713. ;
  714. ; Analysis flags : BC
  715. ;
  716. ; B - Brute hangup ■ 1
  717. ;     Program hangup without notification. This may be a good way to
  718. ;     disconnect a user, but if used randomly, may be very nasty
  719. ;     ■ Search for : HANGUP, DTROFF
  720. ;
  721. ; C - Call child PPE ■ 3
  722. ;     This is usually normal, but may be a tricky way to launch some
  723. ;     sysop-only commands.
  724. ;     ■ Search for : CALL
  725. ;
  726. ;------------------------------------------------------------------------------
  727. ;
  728. ; Postprocessing report
  729. ;
  730. ;    9       For/Next
  731. ;    0       While/EndWhile
  732. ;    65      If/Then or If/Then/Else
  733. ;    0       Select Case
  734. ;
  735. ;------------------------------------------------------------------------------
  736. ;                 AEGiS Corp - Break the routines, code against the machines!
  737. ;------------------------------------------------------------------------------
  738.